60000 OPEN 4,4:PRINT#4,CHR$(15)
60010 FOR A=1024 TO 2023 STEP 40
60020 FOR X=0 TO 39
60040 D=PEEK(X+A)
60050 IF D>127 THEN D=D-128:R$=CHR$(18):O$=CHR$(146)
60060 P=D-((D<32 OR D>95)*64)-((D>63 AND D<96)*32)
60070 P$=P$+R$+CHR$(P)+O$
60080 R$="":O$=""
60090 NEXT X
60100 PRINT#4,P$
60110 P$="":NEXT A
60120 CLOSE 4:END
60200 REM*******************************
60500 REM***IN ORDER TO OBTAIN HARDCOPYS  OF SCREENS CONTAINING UPPER AND LOWER
60600 REM***CASE CHARACTERS LINE 60000                 MUST BE CHANGED TO:
60700 REM***OPEN4,4,7:PRINT#4,CHR$(145)